10 REM  SPRITEMASTER HEADER-DISK VERSION
20 REM
25 IF A=0 THEN GOSUB 2000
30 IF A=0 THEN A=1:LOAD"MACH/LANG2",8,1
35 IF A=1 THEN A=2:LOAD"MAIN4.3",8,1
40 GOSUB 1000
60 SYS AD
70 N=PEEK(251)
80 A=PEEK(252):N=N+2:IF N>255THENN=N-256:A=A+1
85 POKE 253,N:POKE 254,A
90 POKE45,PEEK(253):POKE46,PEEK(254):POKE47,PEEK(253):POKE48,PEEK(254)
95 POKE 49,PEEK(253):POKE50,PEEK(254)
100 POKE 44,18:POKE 642,18:POKE18*256,0:RUN
110 NEW
120 REM
1000 AD=8*4096
1010 FOR I=0 TO 1000
1020 READ N:IF N<0 THEN 1050
1030 POKE AD+I,N
1040 NEXT
1050 RETURN
2000 S$="     [145][157] [145][157][160][145][157][160][157][157][157][157][157][160][160][160][160][157][157][157][157][145][160][145][157][160][145][157][160][160][160][160][160]"
2010 P$=" [145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][160][160][160][160][157] [157] [157] [157][157][157][157][160][160][160][160]"
2020 R$=" [145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][160][160][160][160][157] [157] [157] [157][157][157][157][160][160][160][160][157][157] [157]  [157] "
2030 I$="[160][160][160][160][160][157][157][157][145][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][157][157]     "
2040 T$=" [145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][157][157]     "
2050 E$="     [157][157][157][157][157][145][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][160][160][160][160][157][157][157][157]  "
2060 M$="[160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160] [157]    [157][157][157] [145][145] [145] [157] [157] [157] [157] [157] [157] "
2070 A$="[160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][160][145][157][160][160][160][157]  [157] [157] [157][157][157][157]    [157] [157] "
2080 N6$="[160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][160][160][160][160][157] [157][157][157][157]    [157] [157] [157][157][157][157]    "
2090 N4$="[145][145]    [160][157][145][160][157][145][160][157][145][160][157][145][160][157][145][160][157][145][157]  [157][157][157][157][157][160][145][160][145][160][145]"
2100 REM
2105 POKE 53280,2:POKE53281,0
2110 PRINT"[147]";
2120 POKE 646,7:PRINT  S$;
2130 POKE 646,2:PRINT  P$;
2140 POKE 646,14:PRINT R$;
2150 POKE 646,1:PRINT  I$;
2160 POKE 646,8:PRINT  T$;
2170 POKE 646,13:PRINT E$
2180 PRINT"";
2190 POKE 646,9:PRINT  M$;
2200 POKE 646,3:PRINT  A$;
2210 POKE 646,8:PRINT  S$;
2220 POKE 646,7:PRINT  T$;
2230 POKE 646,6:PRINT  E$;
2240 POKE 646,15:PRINT R$
2245 PRINT:PRINT:PRINT:PRINT:PRINT"  COPYRIGHT"; TAB(31);"PLEASE"
2246 PRINT"  1982";TAB(33);"WAIT"
2247 PRINT"  ACCESS";TAB(34);"ONE"
2248 PRINT"  SOFTWARE";TAB(31);"MINUTE"
2250 PRINTTAB(14);"[145]";
2260 POKE 646,14:PRINT N6$;N4$
2270 POKE 646,15:RETURN
15000 DATA 173,1,18,133,251
15010 DATA 173,2,18,133,252
15020 DATA 160,0,177,251,208
15030 DATA 5,200,177,251,240
15040 DATA 16,160,0,177,251
15050 DATA 170,200,177,251,133
15060 DATA 252,138,133,251,76
15070 DATA 10,128,96,-1
15080 REM                     <<
15090 REM                     <<